object fmSiparisDenFatura: TfmSiparisDenFatura
  Tag = 303
  Left = 149
  Top = 121
  Width = 1032
  Height = 533
  Caption = 'Faturalanacak Sipari'#351' Listesi'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter2: TSplitter
    Left = 0
    Top = 258
    Width = 1024
    Height = 14
    Cursor = crVSplit
    Align = alTop
    Beveled = True
    ResizeStyle = rsUpdate
  end
  object Grid1: TwwDBGrid
    Left = 0
    Top = 272
    Width = 1024
    Height = 182
    DisableThemes = False
    ControlType.Strings = (
      'durum;CustomEdit;durumuk;F'
      'selected;CheckBox;True;False'
      'sec;CheckBox;True;False'
      'altdurum;CustomEdit;altdurumg;T'
      'faturadurum;CustomEdit;faturadurumk;F')
    Selected.Strings = (
      'selected'#9'3'#9'Se'#231#9'F'
      'SipDurum'#9'7'#9'SipDurum'#9'F'
      'depoadi'#9'8'#9'Depo Ad'#305#9'F'
      'teslimsekli'#9'2'#9'T'#9'F'
      'Terminal'#9'9'#9'Terminal'#9'F'
      'siparisno'#9'8'#9'Sipari'#351' No'#9#9
      'tarih'#9'10'#9'Sipari'#351' Tarih'#9#9
      'onaytarihi'#9'9'#9'Onay Tarihi'#9#9
      'carikodu'#9'15'#9'Firma Kodu'#9'F'
      'firmaadi'#9'47'#9'Firma Ad'#305#9'F'
      'KODU'#9'16'#9'Sevkiyat Kodu'#9'F'
      'SEVKACIKLAMA'#9'27'#9'Sevkiyat Ad'#305#9'F'
      'Temsilci'#9'20'#9'Temsilci'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = SiparisListeS
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    KeyOptions = [dgEnterToTab]
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    ParentFont = False
    PopupMenu = PM
    ReadOnly = True
    TabOrder = 2
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = True
    UseTFields = False
    OnCalcCellColors = Grid1CalcCellColors
    OnCalcTitleAttributes = Grid1CalcTitleAttributes
    OnTitleButtonClick = Grid1TitleButtonClick
    OnKeyPress = Grid1KeyPress
    PaintOptions.AlternatingRowColor = 16250871
  end
  object Panel1: TPanel
    Left = 0
    Top = 454
    Width = 1024
    Height = 34
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    DesignSize = (
      1024
      34)
    object blistele: TBitBtn
      Left = 7
      Top = 6
      Width = 75
      Height = 25
      Caption = 'Liste'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = blisteleClick
    end
    object bkapat: TBitBtn
      Left = 950
      Top = 6
      Width = 67
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Kapat'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = bkapatClick
    end
    object BitBtn1: TBitBtn
      Left = 103
      Top = 6
      Width = 83
      Height = 25
      Caption = 'T'#252'm'#252'n'#252' Se'#231
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn1Click
    end
  end
  object PanelListele: TPanel
    Left = 0
    Top = 0
    Width = 1024
    Height = 114
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Bevel2: TBevel
      Left = 0
      Top = 107
      Width = 1024
      Height = 7
      Align = alBottom
      Shape = bsBottomLine
    end
    object uretimmik: TPanel
      Tag = 151
      Left = 996
      Top = 4
      Width = 33
      Height = 33
      BevelOuter = bvNone
      TabOrder = 3
      Visible = False
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 689
      Height = 107
      Align = alLeft
      TabOrder = 0
      DesignSize = (
        689
        107)
      object Label9: TLabel
        Left = 7
        Top = 10
        Width = 40
        Height = 13
        Caption = 'Terminal'
        Transparent = True
      end
      object Label12: TLabel
        Left = 7
        Top = 54
        Width = 49
        Height = 14
        Caption = 'Sipari'#351' No'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label14: TLabel
        Left = 7
        Top = 32
        Width = 43
        Height = 13
        Caption = 'Firma Ad'#305
        Transparent = True
      end
      object Label1: TLabel
        Left = 271
        Top = 9
        Width = 67
        Height = 13
        Caption = 'Sevkiyat '#350'ekli'
        Transparent = True
      end
      object Label2: TLabel
        Left = 443
        Top = 10
        Width = 57
        Height = 13
        Caption = 'B'#246'l'#252'm Kodu'
        Transparent = True
      end
      object Label4: TLabel
        Left = 443
        Top = 34
        Width = 34
        Height = 14
        Caption = 'Filitre 1'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label10: TLabel
        Left = 443
        Top = 55
        Width = 49
        Height = 14
        Caption = 'Stok Kodu'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label11: TLabel
        Left = 645
        Top = 55
        Width = 25
        Height = 14
        Caption = '[_,%]'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object edTerminal: TwwDBLookupCombo
        Left = 60
        Top = 6
        Width = 141
        Height = 22
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        DisableThemes = False
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'TerminalKod'#9'3'#9'Kod'#9'T'
          'KullaniciAdi'#9'15'#9'Personel'#9'T')
        LookupTable = adoTerminal
        LookupField = 'TerminalKod'
        Options = [loColLines, loRowLines, loTitles]
        Style = csDropDownList
        Navigator = False
        ParentFont = False
        TabOrder = 1
        AutoDropDown = True
        ShowButton = True
        AllowClearKey = True
        ShowMatchText = True
      end
      object edSipno: TEdit
        Left = 60
        Top = 51
        Width = 141
        Height = 21
        AutoSize = False
        TabOrder = 2
        OnKeyDown = edSipnoKeyDown
      end
      object edFirmaadi: TEdit
        Left = 60
        Top = 29
        Width = 358
        Height = 21
        TabOrder = 0
        OnEnter = edFirmaadiEnter
        OnKeyDown = edFirmaadiKeyDown
      end
      object edSevkTuru: TwwDBComboBox
        Left = 352
        Top = 7
        Width = 65
        Height = 21
        ShowButton = True
        Style = csDropDownList
        MapList = True
        AllowClearKey = True
        AutoDropDown = True
        DropDownCount = 8
        ItemHeight = 0
        Items.Strings = (
          'Elden'#9'E'
          'Sevkiyat'#9'S'
          'Kargo'#9'K'
          'T'#220'M'#220#9'T')
        ItemIndex = 3
        Sorted = False
        TabOrder = 3
        UnboundDataType = wwDefault
      end
      object Bolumk: TwwDBLookupCombo
        Left = 503
        Top = 6
        Width = 90
        Height = 22
        Anchors = [akTop, akRight]
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        DisableThemes = False
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'isim'#9'30'#9'Filitre 1'#9'F')
        LookupTable = St_AnaGrupQ
        LookupField = 'kod'
        Style = csDropDownList
        Color = clWhite
        Navigator = False
        ParentFont = False
        TabOrder = 4
        AutoDropDown = True
        ShowButton = True
        AllowClearKey = True
        ShowMatchText = True
        OnCloseUp = BolumkCloseUp
      end
      object Stokkoduk: TEdit
        Left = 503
        Top = 52
        Width = 137
        Height = 21
        AutoSize = False
        TabOrder = 6
      end
      object lcTur: TwwDBLookupCombo
        Left = 503
        Top = 29
        Width = 170
        Height = 22
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        DisableThemes = False
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'Baslik'#9'20'#9'Baslik'#9'F')
        LookupTable = adoTur
        LookupField = 'Ref'
        Style = csDropDownList
        Color = clWhite
        Navigator = False
        ParentFont = False
        TabOrder = 5
        AutoDropDown = True
        ShowButton = True
        UseTFields = False
        AllowClearKey = True
        ShowMatchText = True
      end
    end
    object edSiparisNo: TwwDBEdit
      Left = 696
      Top = 3
      Width = 223
      Height = 58
      DataField = 'siparisno'
      DataSource = SiparisListeS
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -35
      Font.Name = 'Arial Black'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      UnboundDataType = wwDefault
      UnboundAlignment = taCenter
      WantReturns = False
      WordWrap = False
    end
    object ColorGrid1: TColorGrid
      Left = 926
      Top = 2
      Width = 84
      Height = 76
      ForegroundIndex = -1
      ForegroundEnabled = False
      TabOrder = 2
      OnChange = ColorGrid1Change
    end
    object grpEksikParca: TGroupBox
      Left = 693
      Top = 63
      Width = 232
      Height = 47
      Caption = '  Eksik Par'#231'a  '
      TabOrder = 4
      Visible = False
      object lbEksikParca: TcxListBox
        Left = 2
        Top = 15
        Width = 228
        Height = 30
        Align = alClient
        ItemHeight = 13
        ParentFont = False
        ReadOnly = True
        Style.Color = clBlack
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clRed
        Style.Font.Height = -11
        Style.Font.Name = 'MS Sans Serif'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 0
      end
    end
  end
  object PanelAyrinti: TPanel
    Left = 0
    Top = 114
    Width = 1024
    Height = 144
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 0
      Top = 0
      Width = 1024
      Height = 6
      Cursor = crVSplit
      Align = alTop
      ResizeStyle = rsUpdate
    end
    object GroupBox1: TGroupBox
      Left = 855
      Top = 6
      Width = 169
      Height = 138
      Align = alRight
      Caption = 'A'#231#305'klama'
      TabOrder = 3
      object Aciklamak: TwwDBRichEdit
        Left = 2
        Top = 15
        Width = 165
        Height = 121
        ScrollBars = ssVertical
        Align = alClient
        AutoURLDetect = False
        DataField = 'aciklama'
        DataSource = SiparisListeS
        PrintJobName = 'CasperPrg'
        TabOrder = 0
        EditorCaption = 'Edit Rich Text'
        EditorPosition.Left = 0
        EditorPosition.Top = 0
        EditorPosition.Width = 0
        EditorPosition.Height = 0
        MeasurementUnits = muInches
        PrintMargins.Top = 1.000000000000000000
        PrintMargins.Bottom = 1.000000000000000000
        PrintMargins.Left = 1.000000000000000000
        PrintMargins.Right = 1.000000000000000000
        RichEditVersion = 2
        Data = {
          730000007B5C727466315C616E73695C616E7369637067313235345C64656666
          305C6465666C616E67313035357B5C666F6E7474626C7B5C66305C666E696C20
          4D532053616E732053657269663B7D7D0D0A5C766965776B696E64345C756331
          5C706172645C66305C667331365C7061720D0A7D0D0A00}
      end
    end
    object wwDBGrid1: TwwDBGrid
      Left = 0
      Top = 6
      Width = 587
      Height = 138
      DisableThemes = False
      ControlType.Strings = (
        'XXXDurum;CustomEdit;xxxDurum;T')
      Selected.Strings = (
        'stokkodu'#9'18'#9'Stok Kodu'#9'F'
        'cinsi'#9'21'#9'Cinsi'#9'F'
        'miktar'#9'5'#9'Miktar'#9#9
        'verilenmiktar'#9'6'#9'V.Miktar'#9'F'
        'XXXDurum'#9'14'#9'Durum'#9'F'
        'fstok'#9'6'#9'F.Stok'#9'F'
        'gstok'#9'6'#9'G.Stok'#9'F'
        'UreticiKodu'#9'8'#9#220'ret. Kodu'#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alLeft
      BorderStyle = bsNone
      Color = clInfoBk
      Ctl3D = False
      DataSource = SiparisHarS
      KeyOptions = [dgEnterToTab]
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      UseTFields = False
      PaintOptions.AlternatingRowColor = 16310998
    end
    object GroupBox2: TGroupBox
      Left = 679
      Top = 6
      Width = 176
      Height = 138
      Align = alRight
      Caption = 'Sevk Bilgisi'
      TabOrder = 2
      object wwDBRichEdit1: TwwDBRichEdit
        Left = 2
        Top = 15
        Width = 172
        Height = 121
        ScrollBars = ssVertical
        Align = alClient
        AutoURLDetect = False
        DataField = 'sevkiyatbilgisi'
        DataSource = SiparisListeS
        PrintJobName = 'CasperPrg'
        TabOrder = 0
        EditorCaption = 'Edit Rich Text'
        EditorPosition.Left = 0
        EditorPosition.Top = 0
        EditorPosition.Width = 0
        EditorPosition.Height = 0
        MeasurementUnits = muInches
        PrintMargins.Top = 1.000000000000000000
        PrintMargins.Bottom = 1.000000000000000000
        PrintMargins.Left = 1.000000000000000000
        PrintMargins.Right = 1.000000000000000000
        RichEditVersion = 2
        Data = {
          730000007B5C727466315C616E73695C616E7369637067313235345C64656666
          305C6465666C616E67313035357B5C666F6E7474626C7B5C66305C666E696C20
          4D532053616E732053657269663B7D7D0D0A5C766965776B696E64345C756331
          5C706172645C66305C667331365C7061720D0A7D0D0A00}
      end
    end
    object GroupBox3: TGroupBox
      Left = 587
      Top = 6
      Width = 92
      Height = 138
      Align = alClient
      Caption = 'A'#231#305'klama 1-2'
      TabOrder = 1
      object wwDBRichEdit2: TwwDBRichEdit
        Left = 2
        Top = 15
        Width = 88
        Height = 121
        ScrollBars = ssVertical
        Align = alClient
        AutoURLDetect = False
        DataField = 'aciklama12'
        DataSource = SiparisListeS
        PrintJobName = 'CasperPrg'
        TabOrder = 0
        EditorCaption = 'Edit Rich Text'
        EditorPosition.Left = 0
        EditorPosition.Top = 0
        EditorPosition.Width = 0
        EditorPosition.Height = 0
        MeasurementUnits = muInches
        PrintMargins.Top = 1.000000000000000000
        PrintMargins.Bottom = 1.000000000000000000
        PrintMargins.Left = 1.000000000000000000
        PrintMargins.Right = 1.000000000000000000
        RichEditVersion = 2
        Data = {
          810000007B5C727466315C616E73695C616E7369637067313235345C64656666
          305C6465666C616E67313035357B5C666F6E7474626C7B5C66305C666E696C20
          4D532053616E732053657269663B7D7D0D0A5C766965776B696E64345C756331
          5C706172645C66305C6673313620777744425269636845646974325C7061720D
          0A7D0D0A00}
      end
    end
    object xxxDurum: TwwDBComboBox
      Left = 345
      Top = 100
      Width = 88
      Height = 21
      ShowButton = True
      Style = csDropDown
      MapList = True
      AllowClearKey = True
      AutoDropDown = True
      DropDownCount = 8
      ItemHeight = 0
      Items.Strings = (
        'Sipari'#351' Planlama'#9'1'
        'Planland'#305#9'2'
        'Beklemeye Al'#305'nd'#305#9'3'
        'Emir Listesinde'#9'4'
        'Emir Verilmi'#351#9'5'
        'Stoktan Verilmi'#351#9'6'
        'Faturlanm'#305#351#9'7')
      ReadOnly = True
      Sorted = False
      TabOrder = 4
      UnboundDataType = wwDefault
    end
  end
  object fcStatusBar1: TfcStatusBar
    Left = 0
    Top = 488
    Width = 1024
    Height = 18
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    Panels = <
      item
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Name = 'Panel1'
        Tag = 0
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '30%'
      end
      item
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Name = 'Panel2'
        Tag = 0
        TextOptions.Alignment = taCenter
        TextOptions.VAlignment = vaVCenter
        Width = '5%'
      end>
    ParentFont = False
    SimplePanel = False
    SizeGrip = False
    StatusBarText.CapsLock = 'Caps'
    StatusBarText.Overwrite = 'Overwrite'
    StatusBarText.NumLock = 'Num'
    StatusBarText.ScrollLock = 'Scroll'
  end
  object pnlSiparisGerial: TPanel
    Left = 412
    Top = 298
    Width = 205
    Height = 90
    TabOrder = 5
    Visible = False
    DesignSize = (
      205
      90)
    object Label3: TLabel
      Left = 1
      Top = 1
      Width = 203
      Height = 13
      Align = alTop
      Alignment = taCenter
      Caption = 'Sipari'#351'i De'#287'i'#351'meyen Fatura '#304'ptali'
      Color = clMenuHighlight
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label5: TLabel
      Left = 8
      Top = 28
      Width = 54
      Height = 13
      Caption = 'Sipari'#351' No :'
      Transparent = True
    end
    object Button1: TButton
      Left = 12
      Top = 63
      Width = 65
      Height = 21
      Anchors = [akBottom]
      Caption = 'Geri Al'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 130
      Top = 64
      Width = 65
      Height = 21
      Anchors = [akBottom]
      Caption = 'Vazge'#231
      TabOrder = 2
      OnClick = Button2Click
    end
    object edSip: TEdit
      Left = 66
      Top = 25
      Width = 129
      Height = 21
      TabOrder = 1
    end
  end
  object SiparisListe: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterScroll = SiparisListeAfterScroll
    CommandTimeout = 3000
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'select top 1 sevkiyatadres=(isnull(aciklama3,'#39#39')+'#39' '#39'+isnull(acik' +
        'lama4,'#39#39')),carikodu=(select top 1 carikodu from cari where cari.' +
        'carikod=U.carikod),'
      
        '       firmaadi=(select top 1 firmaadi from cari where cari.cari' +
        'kod=U.carikod),'
      
        '       depoadi=(select top 1 depoadi from depolar where depolar.' +
        'id=U.depoid),'
      
        '       faturadurum=isnull((select top 1 durum from fatura where ' +
        'fatura.belgeno=U.siparisno),0),'
      
        '       sevkiyatbilgisi=(isnull(aciklama3,'#39#39')+isnull(aciklama4,'#39#39 +
        ')+isnull(sevkiyatkodu,'#39#39')),'
      'BekleMe=('
      'CASE beklemenedeni'
      '         WHEN 1 THEN '#39'Eksik Par'#231'a'#39
      '         WHEN 2 THEN '#39'Planlama / Sevkiyat'#39
      '         WHEN 3 THEN '#39'M'#252#351'teri Talebi'#39
      '         WHEN 4 THEN '#39'Standart D'#305#351#305#39
      '         ELSE '#39'Hatl'#305' Kay'#305't'#39
      '      END'
      '),SipDurum='#39#214#39',U.*, Sv.KODU,Sv.ACIKLAMA as SEVKACIKLAMA,'
      'Temsilci=Sv.ACIKLAMA'
      
        'from unity_siparis_2006 U Left join tbl_sevkiyatadres Sv on Sv.U' +
        'NITYCODE=U.Sevkiyatkod'
      ''
      'where U.durum is not null and U.durum <> '#39'2'#39
      'order by U.onaytarihi')
    Left = 224
    Top = 184
  end
  object SiparisListeS: TDataSource
    DataSet = SiparisListe
    Left = 224
    Top = 136
  end
  object SiparisHar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 3000
    DataSource = SiparisListeS
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'select stokkodu=(select top 1 stokkodu from stok with(nolock) wh' +
        'ere stok.stokkod=unity_siparishar_2006.stokkod), '
      
        'XXXDurum=(Select top 1 (Case When unity_siparishar_2006.Durum is' +
        ' Null Then 0 When (isnull((select top 1 BilisNo from fatura with' +
        '(nolock) '
      
        'where  fatura.belgeno=S.siparisno and Fatura.UnityDB=S.UnityDB),' +
        '0)>0) AND ((unity_siparishar_2006.stoktanmiverilecek=1) OR '
      
        '(isnull(e.aktarilanuremrino,0)<>0)) Then 7 When unity_siparishar' +
        '_2006.stoktanmiverilecek=1 Then 6   When isnull(e.aktarilanuremr' +
        'ino,0)<>0 Then 5 '
      
        'When isnull(e.id,0)<>0 Then 4 Else unity_siparishar_2006.Durum e' +
        'nd) from unity_siparis_2006 s left join unity_emirlistesi e on '
      
        '(e.siparisharid=unity_siparishar_2006.id) Where (s.id=unity_sipa' +
        'rishar_2006.siparisid)), '
      'st.UreticiKodu,'
      
        'cinsi=(select top 1 stokkodu from stok with(nolock) where stok.s' +
        'tokkod=unity_siparishar_2006.stokkod), '
      
        'gstok=(select top 1 isnull(sum(gstok),0) from StokTakip with(nol' +
        'ock) where StokTakip.stokkod=unity_siparishar_2006.stokkod), '
      
        'fstok=(select top 1 isnull(sum(gstok),0) from StokTakip with(nol' +
        'ock) where StokTakip.stokkod=unity_siparishar_2006.stokkod and '
      
        'depokod=(select top 1 depoid from unity_siparis_2006 with(nolock' +
        ')  where unity_siparis_2006.id=unity_siparishar_2006.siparisid))' +
        ','
      
        'grup=(select top 1 grup from stok with(nolock) where stok.stokko' +
        'd=unity_siparishar_2006.stokkod), * from unity_siparishar_2006 w' +
        'ith(nolock) '
      
        'join stok st on (unity_siparishar_2006.stokkod=st.stokkod)  wher' +
        'e siparisid=104782  order by durum desc')
    Left = 56
    Top = 184
  end
  object SiparisHarS: TDataSource
    DataSet = SiparisHar
    Left = 56
    Top = 136
  end
  object timUnityFatKontrol: TTimer
    Enabled = False
    Interval = 30000
    Left = 1040
    Top = 136
  end
  object adoYazdirilanlar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    AfterScroll = SiparisListeAfterScroll
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'Select S.*,U.FICHENO as FatNo,UI.FICHENO as IrsNo from unity_sip' +
        'aris_2006 S '
      
        'Left join UNITY_DB.dbo.LG_018_01_INVOICE U    on S.siparisno = U' +
        '.DOCODE '
      
        'Left join UNITY_DB.dbo.LG_018_01_STFICHE UI  on S.siparisno = UI' +
        '.DOCODE '
      ''
      ''
      'where U.PRINTCNT >0 and U.DATE_ = '#39'2008-07-11'#39)
    Left = 312
    Top = 184
  end
  object DsYazdirilanlar: TDataSource
    DataSet = adoYazdirilanlar
    Left = 312
    Top = 136
  end
  object adoTemp: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    AfterScroll = SiparisListeAfterScroll
    CommandTimeout = 3000
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'select top 1 sevkiyatadres=(isnull(aciklama3,'#39#39')+'#39' '#39'+isnull(acik' +
        'lama4,'#39#39')),carikodu=(select top 1 carikodu from cari where cari.' +
        'carikod=U.carikod),'
      
        '       firmaadi=(select top 1 firmaadi from cari where cari.cari' +
        'kod=U.carikod),'
      
        '       depoadi=(select top 1 depoadi from depolar where depolar.' +
        'id=U.depoid),'
      
        '       faturadurum=isnull((select top 1 durum from fatura where ' +
        'fatura.belgeno=U.siparisno),0),'
      
        '       sevkiyatbilgisi=(isnull(aciklama3,'#39#39')+isnull(aciklama4,'#39#39 +
        ')+isnull(sevkiyatkodu,'#39#39')),'
      'BekleMe=('
      'CASE beklemenedeni'
      '         WHEN 1 THEN '#39'Eksik Par'#231'a'#39
      '         WHEN 2 THEN '#39'Planlama / Sevkiyat'#39
      '         WHEN 3 THEN '#39'M'#252#351'teri Talebi'#39
      '         WHEN 4 THEN '#39'Standart D'#305#351#305#39
      '         ELSE '#39'Hatl'#305' Kay'#305't'#39
      '      END'
      '),SipDurum='#39#214#39',U.*, Sv.KODU,Sv.ACIKLAMA as SEVKACIKLAMA'
      
        'from unity_siparis_2006 U Left join tbl_sevkiyatadres Sv on Sv.U' +
        'NITYCODE=U.Sevkiyatkod'
      ''
      'where U.durum is not null and U.durum <> '#39'2'#39
      'order by U.onaytarihi')
    Left = 416
    Top = 136
  end
  object adoTerminal: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select F.* from dbo.CS_FATURA_KESEN F  Where AKTIF=1 order by F.' +
        'Terminalkod ')
    Left = 1007
    Top = 8
  end
  object PM: TPopupMenu
    OnChange = PMChange
    Left = 256
    Top = 328
    object GeriAl1: TMenuItem
      Caption = 'Sipari'#351'i Geri Al'
      OnClick = GeriAl1Click
    end
    object SipariiDeimeyenFaturaptali1: TMenuItem
      Caption = 'Sipari'#351'i De'#287'i'#351'meyen Fatura '#304'ptali'
      OnClick = SipariiDeimeyenFaturaptali1Click
    end
    object irsaliteOlustur: TMenuItem
      Caption = #304'rsaliye Olu'#351'tur'
      ShortCut = 16464
      OnClick = irsaliteOlusturClick
    end
    object Siparisirsaliyeolustur1: TMenuItem
      Caption = 'Sipari'#351' A'#231#305'klama '#304'rsaliye Olu'#351'tur'
      ShortCut = 16455
      OnClick = irsaliteOlusturClick
    end
    object FaturalandGoster1: TMenuItem
      Caption = 'Faturaland'#305' G'#246'ster'
      OnClick = FaturalandGoster1Click
    end
  end
  object St_AnaGrupQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from St_AnaGrup')
    Left = 816
    Top = 520
  end
  object St_AnaGrupQS: TDataSource
    DataSet = St_AnaGrupQ
    Left = 744
    Top = 528
  end
  object adoTemp2: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    AfterScroll = SiparisListeAfterScroll
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'select top 1 sevkiyatadres=(isnull(aciklama3,'#39#39')+'#39' '#39'+isnull(acik' +
        'lama4,'#39#39')),carikodu=(select top 1 carikodu from cari where cari.' +
        'carikod=U.carikod),'
      
        '       firmaadi=(select top 1 firmaadi from cari where cari.cari' +
        'kod=U.carikod),'
      
        '       depoadi=(select top 1 depoadi from depolar where depolar.' +
        'id=U.depoid),'
      
        '       faturadurum=isnull((select top 1 durum from fatura where ' +
        'fatura.belgeno=U.siparisno),0),'
      
        '       sevkiyatbilgisi=(isnull(aciklama3,'#39#39')+isnull(aciklama4,'#39#39 +
        ')+isnull(sevkiyatkodu,'#39#39')),'
      'BekleMe=('
      'CASE beklemenedeni'
      '         WHEN 1 THEN '#39'Eksik Par'#231'a'#39
      '         WHEN 2 THEN '#39'Planlama / Sevkiyat'#39
      '         WHEN 3 THEN '#39'M'#252#351'teri Talebi'#39
      '         WHEN 4 THEN '#39'Standart D'#305#351#305#39
      '         ELSE '#39'Hatl'#305' Kay'#305't'#39
      '      END'
      '),SipDurum='#39#214#39',U.*, Sv.KODU,Sv.ACIKLAMA as SEVKACIKLAMA'
      
        'from unity_siparis_2006 U Left join tbl_sevkiyatadres Sv on Sv.U' +
        'NITYCODE=U.Sevkiyatkod'
      ''
      'where U.durum is not null and U.durum <> '#39'2'#39
      'order by U.onaytarihi')
    Left = 488
    Top = 136
  end
  object Casper_ServisQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    Left = 600
    Top = 168
  end
  object adoTur: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from TblSiparisTur order by sira')
    Left = 844
    Top = 304
  end
  object adoIrsaliye: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select * from fatura where bilisno=0')
    Left = 316
    Top = 271
  end
  object adoIrsaliyeHar: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select * from fathar where bilisno=0')
    Left = 317
    Top = 327
  end
  object aqFaturaKesen: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select * from fatura where bilisno=0')
    Left = 277
    Top = 390
  end
  object Siphar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 300
    Parameters = <
      item
        Name = 'siparisid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      
        'select stokkodu=(select stokkodu from stok where stok.stokkod=un' +
        'ity_siparishar_2006.stokkod),'
      
        '       cinsi=(select stokkodu from stok where stok.stokkod=unity' +
        '_siparishar_2006.stokkod),'
      '* from unity_siparishar_2006'
      'where siparisid=:siparisid')
    Left = 203
    Top = 302
  end
  object aqUnityTemp: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    AfterScroll = SiparisListeAfterScroll
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'select top 1 sevkiyatadres=(isnull(aciklama3,'#39#39')+'#39' '#39'+isnull(acik' +
        'lama4,'#39#39')),carikodu=(select top 1 carikodu from cari where cari.' +
        'carikod=U.carikod),'
      
        '       firmaadi=(select top 1 firmaadi from cari where cari.cari' +
        'kod=U.carikod),'
      
        '       depoadi=(select top 1 depoadi from depolar where depolar.' +
        'id=U.depoid),'
      
        '       faturadurum=isnull((select top 1 durum from fatura where ' +
        'fatura.belgeno=U.siparisno),0),'
      
        '       sevkiyatbilgisi=(isnull(aciklama3,'#39#39')+isnull(aciklama4,'#39#39 +
        ')+isnull(sevkiyatkodu,'#39#39')),'
      'BekleMe=('
      'CASE beklemenedeni'
      '         WHEN 1 THEN '#39'Eksik Par'#231'a'#39
      '         WHEN 2 THEN '#39'Planlama / Sevkiyat'#39
      '         WHEN 3 THEN '#39'M'#252#351'teri Talebi'#39
      '         WHEN 4 THEN '#39'Standart D'#305#351#305#39
      '         ELSE '#39'Hatl'#305' Kay'#305't'#39
      '      END'
      '),SipDurum='#39#214#39',U.*, Sv.KODU,Sv.ACIKLAMA as SEVKACIKLAMA'
      
        'from unity_siparis_2006 U Left join tbl_sevkiyatadres Sv on Sv.U' +
        'NITYCODE=U.Sevkiyatkod'
      ''
      'where U.durum is not null and U.durum <> '#39'2'#39
      'order by U.onaytarihi')
    Left = 680
    Top = 275
  end
  object Unity_Stok: TADOQuery
    Connection = dm.Connect_Unity
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 484
    Top = 192
  end
end
